home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swags_z.zip
/
STRINGS.SWG
/
0074_BASM Right Pad.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-02-03
|
359b
|
20 lines
Procedure RightPas(Var S:String; MaxLen:Byte);
Begin
ASm
LES BX, S;
ESSeg
Mov AL, [ES:BX];
Xor AH, AH;
Add BX, AX;
@@Loop:
Cmp AL, MaxLen;
Jge @@Done;
Mov Word Ptr [ES:BX],' ';
Inc BX;
Inc AL;
Jmp @@Loop;
@@Done:
End;